00100	.PORTION !NONAME ;
00200	.FILL; ADJUST; RETAIN; APART;
00300	.PAGE FRAME 69 WIDE 53 HIGH;
00400	.AREA TEXT LINE 4 TO 51;
00500	.TITLE AREA HEADING LINES 1 TO 3
00600	.TITLE AREA FOOTING LINE 53
00700	.PLACE TEXT;
00800	.AT NULL ⊂ IF FILLING THEN BREAK ELSE SKIP 1 ;; ⊃
00900	.MACRO SINGLE SPACE ⊂ BREAK ; SPREAD ← 1 ; ⊃
01000	.MACRO DOUBLE SPACE ⊂ BREAK ; SPREAD ← 2 ; ⊃
01100	.MACRO TRIPLE SPACE ⊂ BREAK ; SPREAD ← 3 ; ⊃
01200	.!HF ← FALSE; !EH ← !OH ← !EF ← !OF ← NULL
01300	.MACRO EVERY HEADING(L,C,R) ⊂ !EH ← !OH ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
01400	.MACRO EVERY FOOTING(L,C,R) ⊂ !EF ← !OF ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
01500	.MACRO EVEN HEADING(L,C,R) ⊂ !EH ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
01600	.MACRO ODD  HEADING(L,C,R) ⊂ !OH ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
01700	.MACRO EVEN FOOTING(L,C,R) ⊂ !EF ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
01800	.MACRO ODD  FOOTING(L,C,R) ⊂ !OF ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
01900	.RECURSIVE MACRO STANDARD TITLES ⊂ IF !HF THEN BEGIN NOFILL TURN ON "←", "→", "{" INDENT 0,0
02000	.	IF EVEN PAGE THEN
02100	.		START
02200	.		IF LENGTH(!EH) THEN START PLACE HEADING; !EH END ;
02300	.		IF LENGTH(!EF) THEN START PLACE FOOTING; !EF END ;
02400	.		END
02500	.	ELSE	START
02600	.		IF LENGTH(!OH) THEN START PLACE HEADING; !OH END ;
02700	.		IF LENGTH(!OF) THEN START PLACE FOOTING; !OF END ;
02800	.		END ;
02900	.END ⊃
03000	.BEFORE PAGE ⊂ IF !HF THEN STANDARD TITLES ;; ⊃
03100	.MACRO TABBREAK ⊂ AT 8 ⊂ IF FILLING THEN BREAK ELSE "        " ⊃ ⊃
03200	.MACRO TABSPACE ⊂ AT 8 ⊂⊃ ⊃
03300	.NOFILL PREFACE 0
03400	.FILL PREFACE 1
03500	.RECURSIVE MACRO EVAL(εEXPRESSION) ⊂EXPRESSION⊃
03600	.MACRO WHILE(CONDITION, ACTION) ⊂
03700	.REPEAT $(IF CONDITION THEN START ACTION END ELSE DONE)$ ⊃
03800	.MACRO UNTIL(CONDITION, ACTION) ⊂
03900	.REPEAT$(ACTION ; IF CONDITION THEN DONE)$ ⊃
04000	.MACRO DEBUG(εHERALD)  ⊂ IF DEBUGFLAG THEN
04100	.	START "DEBUG"
04200	.	IF "HERALD" NEQ NULL THEN TTY ← "HERALD" ;
04300	.	PUB!DEBUG ;
04400	.	END "DEBUG" ;
04500	.)$
04600	.MACRO BUGOFF ⊂ DEBUGFLAG ← 0 ; ⊃
04700	.PICHAR "."('177 '0); PICHAR "G"('177 '11); PICHAR "g"('177 '11) ;
04800	.PICHAR "∂"('177 '12); PICHAR "⎇"('177 '13); PICHAR "-"('177 '14);
04900	.PICHAR "+"('177 '15) ;